a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
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F 
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F 
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F 
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F 
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F 
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LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


+*F ILE®® 1D®*F OROPEN 
FFFFFFFFFE © 000000 — RRRRRRRR 000000 =PPPPPPPP = EEEEEEEEEE NN NN | ; 
FFFFFFFFFF | 000000 — RRRRRRRR 000000 = PPPPPPPP = EEEEEEEEEE NN NN ; 
FF 00 00 RR RR 00 00 PP PP EE NN NN 3 
FF 00 RR RR 00 00 PP PP EE NN NN ; 
FF 00 00 RR RR 00 00 PP PP EE NNNN NN ; 
FF 00 00 RR RR 00 00 PP PP EE NNNN NN : 
FFFFFFFF © 00 00 RRRRRRRR 00 00 PPPPPPPP EEEEEEEE NN NN NN ; 
FFFFFFFF 00 00 RRRRRRRR 00 00 PPPPPPPP EEEEEEEE NN NN NN : 
FF 00 00 RR RR 00 00 PP EE N  NNNN : 
FF 00 00 RR xP 00 00 PP EE NN NNNN : 
FF 00 00 RR | RR 00 00 PP EE NN NN pele : 
FF 00 00 RR RR 00 00 PP EE NN NN pb : 
FF 000000 ~=sRR RR 000000 ~—s PP EEEEEEEEEE NN NN xi : 
FF 000000 ~=s RR RR 000000 ~=s PP EEEEEEEEEE NN NN ead : 
LL III SSSSSSSS : 
LL HII 5555555 : 
LL 1] $$ : 
LL I] $$ | : 
LL 1] 5S | : 
LL I] ss é 
LL I] SSSSSS : 
LL I] SSSSS5 | : 
LL 1] $$ | : 
LL II 5S | : 
LL 1] 5S | : 
LL I] $$ | ; 
LLLLLLLLLL ©=sSELII «= SSSSSSSS | : 
LLLLLLLLLL §©>«sSS)«©=—SSSSSSSS 3 
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10738b-1 382 9:3 714 FORRTL.SRCJFOROPEN.B32;1 i (1) 1 
MODULE FORSOPEN AN OPEN’ 
’ ! File: FOROPEN.B32 Edit: S$B6L1065 


BEGIN 


ARERESEOLESILILI SSE E EE EET EEE E EET E TEC T TCP eee c cece c cece erect icc ic citi iis) 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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fe 
a 
® 
* 
* 
oe 
® 
* 
ie TRANSFERRED. ° 
® 
* 
® 
® 
* 
© 
* 
* 
© 
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oooo 
ODONOULS wr 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
he OORPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


NM tt QO OOOOCOCOCO 


ITY FOR THE USE OR RELIABILITY OF ITS 


!* DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
!® SOFTWARE ON EQUIPMENT WHICH 


VeRO RRA AAA AAE AAA AREA AERA AAA EERE A TAA 
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to be there. While we are here, improve the source text layout. 
Note that this edit chenges no code. JBS 27-Aug-1980 
1-063 - Add suppers for DEFAULTFILE keyvorg. JAW 50-Jun-1981 
1-064 = Allow DEFAULTFILE value to be ASCIZ. JAW 30-Jun-1981 
1-065 - Reflect separation of FORS$$ data structures from FOR$$. SBL 5-Oct-1982 


AnEWR CO OBNOUEWR @ODDNAUEWN OOD NOUEWN QOD DNOUFWN MOODNOULWNR 
ee ee a ed ed ed 8 aed ed od od od = 


PAD BS BB EE EE BE BANNAN ANIA POPONPONINONNIDYD 2 2 OO OS 


le¢ 
4 FACILITY: FORTRAN Support Library - user callable 
09 ; ABSTRACT: 
0034 i This module opens a file on a specified logical unit 
0035 ' (LUN) and allocates 3 control blocks for use by subsequent 
0036 : 1/0 statement calls for this LUN. The 3 control blocks 
0037 ! are: Logical Unit Block (LUB), 1/0 statement Block (ISB), 
sie and an RMS Record Access Block (RAB). 
re ENVIRONMENT: User access mode; mixture of AST level or not. 
004 ; AUTHOR: Thomas N. Hastings, CREATION DATE: 6-Mar-77; Version 0 
O44 MODIFIED BY: 
0046 1! Thomas N. Hastings, 15-Mar-77: Version 0 
0047 ! (Previous edit history removed. SBL 5-Oct-1982) — : 
0048 ! 1-062 - Move the BUILTIN ACTUALCOUNT into the routine that needs it, in 
00 anticipation of the next BLISS compiler, which will require it 
i 
i 
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FORSOPEN FORTRAN OPEN 16-Sep-1984 00:35:36 AX=11 Bliss-32 V4.0-74 
bes 10 365-198 9:3 4 FORRTL. SRC FOROPEN.B32;1 (2) 


4 2:1 


! PROLOGUE FILE: 


oOoo0co 
IN.A.AA NAPPI A OI 


NOUS WN @ OC OBNOAUE WN 0 ODNOU EWN" O DOONOU EWN 000" OOo~ 


REQUIRE ‘RTLIN:FORPROLOG'; 
' 


; TABLE OF CONTENTS: 


FORTRAN Declarations 


FORWARD ROUTINE 
FORSOP 


N 
FORSSOPECLO_ARG : NOVALUE, 
OPEN_ON_CONNECTED : CALL_CCB; 


FORTRAN OPEN statement 
Get OPEN/CLOSE arguments 
open on a connected unit 


MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
OWN STORAGE: 

NONE 
EXTERNAL REFERENCES: 


ee ee ee ee 


EXTERNAL ROUTINE | 
FOR OPEN/CLOSE condition handler 
Does the actual OPEN 
Convert small FORTRAN err # 
to 32-bit VAX error # and SIGNAL_STOP 
same as FORSSSIGNAL_STO except no LUB setup 
so must pass LUN remact tty, 
push current LUB/ISB/RAB, if any, and allocate LUB/ISB/RAB | 
for this logical unit : 
Pop 1/0 system back to previous LUB or indicate 
no I/0 statement is currently being processed. 
Look up keywords for literal values 
signal stop internal error 
Close a file 


FORS$SIG_NO_LUB : NOVALUE, 
FORS$SCB_PUSH : JSB_CB_PUSH NOVALUE, 
FORSSCB_POP : JSB_CB_POP NOVALUE, 
FORSSOPEN_KEYWD, 


FORS$SIG_FATINT : NOVALUE 
FORSSCLOSE_FILE : CALL_CCB; 


Be Se Se Se Se Se Ge Be Ge Se Se Be Se Se Fe Se Ge Be Ge Se Se Se Ge Ge Ge Se Se Se Ss Ge Oe Se Se Se Se Se Se Se Se Se we Se Se Se Seas 
ee eee 
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FORSOPEN FORTRAN OPEN 1b-sep=1 
-3eo- 
1065 14-Sep-1 


4 00:35:36 AX-11 Bliss-32 V4.0-742 P 
=$ Be 9: ¢ ase 53 


2:14 FORRTL.SRCJFOROPEN.B32;1 (3) | 


FORTRAN OPEN statement 

meyers code = repeated orgqusents 

value of reyyord (optional : 

value is TRUE iff successful, FALSE if error and ERR= 


GLOBAL ROUTINE FORSOPEN ( 
KEYWD, 
INFO 


9 
9 
' 
i 


‘ee 


i ABSTRACT: 


Open file on the specified logical unit (LUN) with 
attributes specified in the keyword parameters and allocate 
3 control blocks for use by subsequent 1/0 statement calls 
for this LUN. The 3 control blocks are: Logical Unit 
Block (LUB), 1/0 statement block (ISB), and one RMS 
control block: the RAB. If a previous CALL ASSIGN 

or CALL FDBSET has been done all of these control blocks 
have already been allocated, and a FAB has been 

allocated to hold the information passed to CALL ASSIGN or 
CALL FDBSET. 

An RMS SOPEN or SCONNECT is performed. 

Then a record buffer is allocated for the LUN. 


FORMAL PARAMETERS: 


sig wed he pair is repeated for each user specified keyword: 


wrlu.y Contains KEY<7:0>, ARGTYPE<15:8>, and possibly 
INFO<31:16> 
INFO. rlu.v ° Fs any information if need more than 
“bits 


IMPLICIT INPUTS: 


FORS$A_CUR_LUB Current active LUB to be pushed 
down or 0 if no LUB has an I/0 
statement in progress (usual). 


Restored on return from FORSOPEN 
LUBSV_FAB 1 if FAB allocated by FDBSET, CALL ASSIGN 
LUBSV_DIRECT 1 if DEFINE FILE done 
LUBS$V_OPENED 1 if unit already opened 


adeeb abababatabadabababfated tab uiaadatladatahabadabwiadabababadebuababdab sebabebababababababababaiatababadadabad 
—OODNOVEWR (OOO NOUS WI 0 OONO UE WN 0 ODNOU EWN ("OVO ODNOUESWWN "ODODNOMN 
bY ee ee ee eee ew ee wee eee lelelolelelelelolelelelelololelololelololololelel ol ole ola a a) 
ee ee ee ed ee ee a a ee a ee ea i ed ee ed ea ce ee a ee ce ee ec ce ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


td IMPLICIT OUTPUTS: 
20 LUBS$V_READ_ONLY 1 if ‘READONLY’ present 
210 LUBSV_DIRECT 1 if ACCESS = ‘"DIRECT' 
$i! LUBSV_APPEND 1 if ACCESS = "APPEND* 
\ LUBS$V_OLD_FILE 1 if TYPE = ‘OLD’ 
21 LUBS$V_SCRATCH 1 if TYPE = ‘SCRATCH’ 
214 LUBS$V_PRINT 1 if DISPOSE = ‘PRINT* 
215 LUBSV_F IX 1 if RECORDTYPE = ‘FIXED* ; 
216 LUBSV_FORMATTED 1 if FORM = ‘FORMATTED’ or ommitted 
217 LUBSV_UNF ORMAT 1 if FORM = ‘UNFORMATTED’ . 
218 LUBSA_ASSOC_VAR adr. of mn if ASSOCIATEVARIABLE = n is present 
219 LUBSV~ASS_VAR_L 1 ifn is Longyer : 
220 LUBSW_IFI RMS internal file id. Needed in case 
221 FORTRAN CLOSE done. 
2 § LUBSW_RBUF _SIZE Size in bytes of record buffer allocated. 
5% COMPLETTION STATUS: 


? 
FORSOPEN FORTRAN OPEN 1B-sop-1986 00:35:36 VAK=11 BLiss-32 v4.0-742 ° P FO 
ee ae) PAR ee Pa Se ht Pg Pe ~~ a 1- 


So 


' 

} TRUE if success, FALSE if failure and ERR= keyword present 
SIDE EFFECTS: 

i Allocates LUB/ISB/RAB if not already a 
' by CALL ASSI é 
SIGNALS or SIGNAL_STOPs the followin 
! 

! 

! 

' 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF SFORSCCB_DECL; 
14 
Use the formal arg List as a VECTOR of blocks; each block = 1 longword. 


COO 0909009 NI NINN NINN NNO OA O 
DONA WNE WN O OONOULSWN—OOONGM 


POPOPORIPONOPONIPIRONONY = — st st 8 ss 
CSDOSOOCOCOCOOCOCOOOCOOCOSCO OOO SCOOC COSCO OCCOCOCOCOOCOCO COCO OCOCO OOOO OOOOOCOOOOO 


C000 NEN NN NS NN NS SOP AAA AAA AA I BB BBB BE SE AAAI NI AIpponorry) 
=O OO NO UNE WN $0 OONO UEFA 0 ODNOUE WN "OC OONOAU SIAN —OVDOVNOUFWWR—OWOnouw 


POPIPIPPIPINIPONGNPNYDINPYNININYINPINYPININIPININYININPINPINIPINPIPIPIPINYNPINIPIDIDY) 2 2 SS 


2 
2 
2 
2 
2 
2 
2 
2 
2 
8 2 
8 2 P 
: 3 KEYWD : BLOCKVECTOR (255, 1]; 
90 2 BUILTIN 
91 é ACTUALCOUNT; 
3 2 
9 2 LOCAL . 
94 é NAM_DSC : DSCSDESCRIPTOR, ! String descriptor for ASCIZ filename 
95 2 DEF DSC : DSCSDESCRIPTOR, : le descriptor for ASCIZ default file name 
96 2 L_URNWIND ACTION : VOLATILE, ! UNWIND action code for handler 
3 OPEN : VOLATILE VECTOR COPENSK_KEY_MAX + 1]; ! open parameter array 
99 2 '¢ 
00 2 ! Establish handler to RESIGNAL or UNWIND if ERR= present 
4 $ depending on OPENCOPENSK_ERR]. Pass UNWIND action code. 
08 5 
04 2 ENABLE 
05 2 FORSSERR_OPECLO (L_UNWIND_ACTION, OPEN); 
09 590 5 1 
08 2 ! Set UNWIND cleanup to be a no-operation since LUB/ISB/RAB 
4 $ ! has not been pushed yet. 
" é _, LE UNWIND_ACTION = FORSK_UNWINDNOP; 
'¢ 
$15 2 ! Copy user bepeere arglist into array OPEN : 
14 2 ! in cannonical order, so that args may be processed in order 
15 § ! If ASCIZ name string, setup NAM_DSC as its descriptor | 
16 ! If ASCIZ default name oscuro st tue DEF_DSC as its descriptor 
17 2 ! SIGNAL_STOP FORS_INVARGFOR 48=" INVALID” ARGUMENT TO FORTRAN 1/0 SYSTEM"), 
18 2 ! after Scanning all parameters and setting up ERR= in OPEN array. 


OO 
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le 
: - FORSSOPECLO_ARG (KEYWD, ACTUALCOUNT (), OPEN, OPENSK_KEY_MAX, NAM_DSC, DEF_DSC, 1); 
Allocate LUB/ISB/RAB if not already allocated for this 
logical unit. Push down if an 1/0 statement a in progress 
on another unit. Store new current LUB address in OTS 
GLOBAL OWN OTSSA_CUR_LUB. SIGNAL_STOP FORS$_RECIO_OPE 
(40="RECURSIVE 170 OPERATION'). Tf an 1/0 Statement piready 
in erparess for this logical unit. SIGNAL_STOP FORS_INVLOGUNI 
(32="INVALID LOGICAL UNIT NUMBER’) if Logical unit 
number outside of the allowed range of 0:99 for explicit OPEN. 
A cate | change UNWIND cleanup action to be to pop current LUB/ISB/RAB 
since it has now been successfully pushed. 
On return, CCB points to the current control block. 
7 
FORSSCB_PUSH (.OPEN COPENSK_UNIT], LUBSK_LUN_MIN); 
L_UNWIND_ACTION = FORSK_UNWINDPOP; 


i If the unit is currently open, call special routine which 
implements open on a connected unit. 


ca CLUBSV_OPENEDJ OR .CCB CLUB$V_DEALLOC)) 


IF OPEN_ON_CONNECTED (OPEN, L_UNWIND_ACTION) 
fs BEGIN 
No more OPEN processing needed, set IOSTAT and exit. 


IF _(.OPEN COPENSK_IOSTAT] NEQ 0) 
BEGIN 

IF (.OPEN COPENSK_IOSTAT_L]) | 

.OPEN COPENSK_IOSTAT] = 0 

BEGIN 


LOCAL 
IOSTAT : REF BLOCK C, BYTE); 


IOSTAT = .OPEN COPENSK_IOSTATI; 
posta CO, 0, 16, 0] = 0; ' Store one word 


® i 
e j 


AOAAAAINIMINUVIU GUIS BBB BBB BS BANA AWWW OPononoronorng 


END; 
es 13 ! Exit OPEN successfully 


'¢ 
! If DEFINE FILE, CALL FDBSET, or CALL ASSIGN have already been 
i done for this logical unit, SIGNAL_STOP FORSDUPFILSPE 


o — 
SRN SAFER AIS SANS MR WN OCONEE WO Ste ORS OO Oe 
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AAAI NII NAIA AAI AIA AAAI AAAI IAAI AAAI rp forprrprrnonononononopnofneopnofnorny 
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2 
5 
5 
3 
5 
3 
4 
3 
4 
4 
5 
4 
4 
4 
5 
5 
5 
5 
P) 
5 
5 
4 
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1-065 We=8ep=198e 2:32:12 EPORRTL SRE SoRoPEN BSos1 ie 


: i 4 (21="DUPLICATE FILE SPECIFICATION'). ; 
: 278 41 2° ; 
; ie tg IF ((.CCB CLUBSA_FAB] NEQA 0) OR (.CCB CLUBSV_DIRECTJ)) THEN FORSSSIGNAL_STO (FORSK_DUPFILSPE); ; 
: 281 44 2 !4 | ; 
; 28 45 : Set unwind condition to RET so if an error occurs the file will : 
; ee 8 rf ; be closed and the LUB returned (thus freeing up the LUN). | : 
; 85 0 48 L_UNWIND_ACTION = FORSK_UNWINDRET; | 
: 4 6 2 i Perform the OPEN = call common procedure with a pointer : 
: 89 8 23 } to the OPEN parameter VECTOR of Longword values. : 
; 30 0338 _ FORSSOPEN_PROC (OPEN); | : 
: 29 b3e¢ i Pop back previous LUB or indicate that no 1/0 statement | : 
3 $87 b328 : is currently active (OTS$$A_CUR_LUB = 0). | : 
: 295 0538 = FORSSCB_POP (); | 
° . } o 
3 $39 0360 5 ! $tore success IOSTAT. If there was an error, the handler would : 
; 298 0361 § ' do the store. : 
oa ty g% | 
: 301 Ose, § IF (.OPEN COPENSK_IOSTAT] NEQ 0) ; 
a Bah gS | |: 
: 04 O37 3 IF (.OPEN COPENSK_IOSTAT_LJ) | ; 
: 306 0369 2 OPEN COPENSK_IOSTAT] = 0 ; 
: $07 0370 ¢ | ; 
; 308 0371 BEGIN : 
: 316 0373 3 LOCAL 
; 311 0374 5 IOSTAT : REF BLOCK C, BYTE); ; 
: 315 0376 3 IOSTAT = .OPEN COPENSK_IOSTAT]; 3 
3 38 0377 3 IOSTAT CO, 0, 16, 0] = 0; ! Store one word : 
; 315 0378 2 END; | é 
: 319 0380 3 t+ | 
; 319 tet : Return success | ; 
; 320 0383 5°” RETURN 1; | ; 
; 321 0384 1 END; ! End of FORSOPEN routine : 

TITLE FORSOPEN FORTRAN OPEN ; 

LIDENT \1-065\ ; 

EXTRN FORSSERR_OPECLO ; 

-EXTRN FORSSOPER PROC, FORSSSIGNAL_STO : 

-EXTRN FORSS$SI L : 

-EXTRN FORS$CB_PUSA, FORSSCB_POP : 

-EXTRN FORSSOPEN_KEYWD 3 

-EXTRN FORSSSIG_FATINT : 
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1obes 12385-1382 9:3 714 FORRTL.SRCJFOROPEN.B32; 1 — (3) 
-EXTRN FORSSCLOSE_FILE 


-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


0804 00000 .ENTRY FORSOPEN, Save R2,R11 : 0168 
SE 88 AE 9E ii MOVAB -120(SP). SP : 
7E 7¢ 9006 CLRQ OPEN + 0241 
08 AE 7¢ 300 CLRQ  — OPEN : 
1 AE 7C 00008 CLRQ OPEN : 
18 AE 7C OO00E CLRQ OPEN : 
AE 7C 00011 CLRQ OPEN : 
AE 7¢ 0014 CLROQ = OPEN : 
AE 7C 00017 CLRQ OPEN : 
AE 7¢ OO01A CLRQ = OPEN : 
40 AE 7C 00010 CLRQ  ~— OPEN : 
48 AE 7C 000 9 CLRQ OPEN : 
50 AE 7C 000 CLRQ OPEN : 
58 36 AE «70 00026 CLRQ OPEN : 
60 AE 7¢ 900 9 CLRQ  —OPEN : 
68 AE 7C 0002C CLRQ  — OPE : 
6D 0081 CF DE 0002F MOVAL 8$, (FP) : | 
6C AE 01 DO 00034 MOVL #1. L_UNWIND_ACTION > 0274 
01 DD 00038 PUSHL 1 > 0283 | 
74 AE OF 0005A PUSHAB DEF _DSC : | 
FB AD 9F 00030 PUSHAB NAM~DSC : | 
1A DD 90049 PUSHL #2 : 
10 AE OF 0042 PUSHAB OP : 
7E 6C 9A 0004 MOVZBL (AP), =(SP) : 
04 AC 9F 00048 PUSHAB K : 
0000v CF 07 FB 00048 CALLS #7, FORSSOPECLO_ARG ; 
50 D4 00050 CLRL : 0297) 
2 04 AE 00 00052 MOVL PEN+4, R2 ; 
000000006 00 16 00056 JSB FOR$$CB_PUSH : | 
6C AE D4 0005C CLRL §_L_UNWIND_ACTION : 0298 
05 FC AB ES 0005 BLBS  -&%(CCB) : 0304. 
3 FF OAB 04 a 0063 BBC #4, -1(€CB), 2% ; 
6C AE SF 00068 18 PUSHAB L_UNWIND_ACTION ; 0307. 
04 AE 9F 00068 PUSHAB OPEN ; | 
0000v CF 08 FB 0066 CALLS #2, OPEN_ON_CONNECTED : | 
26 E8 000 BLBS ; 
—8 AB DS 007% 2$: TSTL  =24(CCB) + 0342 
05 12 0007 BNEQ 3 
09 FC AB 04 €1 00078 BBC #4, -4(CCB), 4$ ; 
15 DD 008 3$ PUSHL #21 : | 
000000006 00 01 FB CALLS #1, FORSS$SIGNAL_STO : 
6C AE 2 DO 00089 4$: MOVL #2, L_UNWIND_ACTION > 0348 
E 0D 0008 PUSHL SP : 0353 | 
000000006 00 oi FB 0008 CALLS #1, FORSSOPEN_PROC : 
000000006 0 16 00096 JSB FORS$$CB_POP ; 0358 
58 AE b3 009C 5$: TSTL PEN+88 : 0364 | 
OF 13 0009F BEQL 3 : 
05 64 AE €9 OOOA1 BLBC OPEN+100, 6$ : 0367 
8 BE D4 O04 CLRL OPEN+88 : 0369 | 
06 11 OOOA BRB : 
50 58 AE DO OOOAA 68: MOVL OPEN+88, IOSTAT : 0376. 
0 B4 OAE CLRW (1OSTATS : 0377. 
50 1 DO 00080 7$: MOVL #1, RO : 0383 
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14- FORRTL OPEN.B32;1 (3) | 
4 00083 RET : 0384. 
008 B4 8S: WORD peys nothing 3; 0241. 
50 8 AC D B6 MOVL (AP), RO : 
e A BA MOVL 4(RO), R : 
0 A oF B PUSHAB OPEN : 
EC AO OF C PUSHAB L_UNWIND_ACTION : 
a op Sere Ble ae 
43 06 A a £8 ova 4 CAP) : 
000000006 0 0 FB ce CALLS @# +ORSSERR _OPECLO : 


; Routine Size: 212 bytes, Routine Base: _FORSCODE + 0000 
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OPEN 18-Sep-1984 90: 33:76 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 2:52:14 FORRTL.SRCJFOROPEN.B32;1 
GLOBAL ROUTINE FORSSOPECLO_ARG ( ! FORTRAN copy OPEN/CLOSE args 
KEYWD_ADR, ! Adr. of first keyword arg 
ACTUAC_COUNT, ' No. of actual parameters in arg List 
OPEN_ADR, ' Adr. of array to store keyword values 
KEY_MAX, ' Max. value of keyword parameter 
NAM_DSC_ADR, ! Adr. of descriptor for name strin 
DEF DSC_ADR, ! Adr. of descriptor for default name string 
PER _FLAG, True if OPEN (not CLOSE) 


Lengths in bits of keyword variables 
) : NOVALUE = 


++ 
ABSTRACT: 
Routine to copy keyword OPEN/CLOSE parameters 


' 

: into an array for sequential presees 7a in cannonical order. 

Note: LUB cannot be located until all OPEN arguments are scanned and UNIT=n found. 
FORMAL PARAMETERS: 

KEYWD_ADR.rlu.ra Address of first keyword 

: in user arg List 

‘ ACTUAL_COUNT.rlu.v Count of no. of users args 

! OPEN_ABR.wlu.ra Adr. of array to write keyword values 

} KEY_MAX.rlu.v Max. OPEN/CLOSE keyword value 

: NAM_DSC_ADR Adr. of a descriptor if ASCIZ name string given by user 

} DEF _DSC_ADR Adr. of a descriptor if ASCIZ default name string given by user 
} ae dg poy must be allocated by caller 

. not called procedure. 

: OPEN_FLAG = 1 if this call is from OPEN, 0 from CLOSE. 

: Only allocate a LUN if from OPEN. 

; VAR_LENGTH® A byte vector into which are inserted the lengths 

; in bits of the keyword variables. This is used 

by FORSINQUIRE only. 

i IMPLICIT INPUTS: 

; NONE 

IMPLICIT OUTPUTS: 

NONE 

COMPLETITION STATUS: 

NONE 

i SIDE EFFECTS: 

i SIGNAL_STOPs FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN 1/0 SYSTEM’) 

4 if keyword parameter is out of range, but only after all parameters 

; are scanned so that ERR= parameter, if present, has been setup in array OPEN_ADR. 
: Uses FORS$SIG_NO_LUB to signal, since no LUB setup yet 

: so logical unit number must be passed explicitly on errors. 


BEGIN 
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FORSOPEN FORTRAN OPEN 16-Sep-1984 7:35:36 AX-11 Bliss-32 V4.0-742 Page 10 
bes e8ebr13ke 19:83:12 Eebanre seesronopencesoo 9 a) 
; 381 443 
; 444 MAP 
; 3 445 KEYWD_ADR : REF BLOCKVECTOR (100, 13, ! Vector of blocks, each block 
; 384 44 ‘ 48 om Longword. 
; 385 44 OPEN_ADR : REF VECTOR COPENSK_KEY_MAX + 1, LONG), ! Vector to receive cannonical ordering 
3 5] 448 ! of users parameter values. 
; 38 449 NAM_DSC_ADR : REF DSCSDESCRIPTOR, ! string descriptor to use in case ASCIZ file name 
; 388 0450 DEF_DSC_ADR : REF oEttOn E inoee i string gesertpyer to use in case ASCIZ default file name 
3 4 ot} VAR_LENGTHS : REF VECTOR CINQSK_KEY_MAX + 1, BYTE); ! Variable Lengths 
: 238 re LOCAL 
: 454 V_ARG_KEY_ERR, ! error flag, 1 if ARG or KEY out of range 
; 455 V_KEY VAL_ERR, ! error flag, 1 if keyword incorrect 
; 394 456 UNIT_ADDR? ! Address of UNIT variable 
; 4395 0457 UNIT_TYPE; ! Type of varaible: worl 
: 396 0458 
s; wer 0459 4+ 
; 398 0460 ! Clear OPEN or CLOSE parameter array and clear flag 
3; Ty 0461 § !- 
; 400 0062 FILL_VAL (0, .KEY_MAX + 1, .OPEN_ADR); 
; 401 0463 2 V_ARG_KEY_ERR = 0; 
; 40 0464 2 V_KEY_VAL_ERR = 0; 
: 40 0465 2 UNIT_TYPE™= 0; 
; 404 0466 2 UNIT_ADDR = 0; 
; 405 0467 2 !+ 
; 406 0468 § ! Scan actual keyword parameter List (KEYWD ADR) and copy (sign extend) 
: 407 0469 ' associated information to formal array OPEN_ADR of longwords ordered 
: 408 0470 2 ! by parameter dependencies, i. e., sort by KEY. 
; 409 0471 2 !- 
; $10 0472 2 
3 411 0475 2 INCR I FROM 0 TO .ACTUAL_COUNT = 1 DO 
; ai8 0474 2 !+ 
; (41 0475 2 ! Set longword value to sign extension of each ig of OPEN/CLOSE 
; 414 0476 2 ! parameter present to: Bits 31:16 of this actual, next 
3; 64415 0477 § ' actual, or location specified by next actual depending 
: 416 0478 ! on the yee of OPEN argument (OPENSB_ARG_TYPE). ; 
; 417 0479 2 ! If ARGTYPE or KEY code is not one of defined values, set error flag and keep scanning 
; 418 0480 2 ! to see if ERR= is present so error handler will handle proper its 
: re oes 2 error FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN I/O SYSTEM’) 
3 $21 048 BEGIN 
; $56 0484 
3; 42 0485 LOCAL 
: rey B28 K, ' temp value of KEY 
3 $82 ot $4 V; ' temp value of value to be stored 
: 427 0489 3 K = .KEYWD_ADR C.1, OPENSB_KEY); 
; 428 0490 3 v= 
3 ri 0491 4 BEGIN 
; 430 0492 4 
; 431 0493 4 CASE .KEYWD_ADR C.1, OPENSB_ARG_TYPE] FROM 0 TO OPENSK_ARG_MAX OF 
; $3 0494 4 SET 
; 43 495 4 
: 434 496 4 COPENSK_ARG_NULL) : 
3; 4435 497 & !% ‘ 
: 436 498 4 ! keyword with no value - make value be 1 
3; 4637 0499 4 ! to distinguish from not present. 
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eit ge0- 138 90:33:78 FORRTL. SRC IFOROPEN.B32¢1 wm dj 1- 


a COPENSK_ARG_LIT, OPENSK_ARG_W_V] : 


! literal or wereeey reas - bits <31:16> is value 
: sign extend to full machine value 


-KEYWD_ADR C.1, OPENSW_INFO); 
a COPENSK_ARG_W_RJ : 


! Word by reference - use adr. in next Longword 
sign extend word to longword 


BEGIN 
IF (.K EQLU OPENSK_UNIT) 
THEN 


jolejleoleqi=) 
OONAOWVE WN OO 


— Ft > 4 > 4 2s 2s 9 


'¢ 
} Remember UNIT's address and type in case we must provide it 


IF (.UNIT_TYPE NEQ 0) 
V_ARG_KEY_ERR = 1 
ELS 
ba BEGIN 
: This is the first time through here 


UNIT_TYPE = DSCSK_DTYPE_w; 
UNITTADDR = .KEYWD_ADR [.1 + 1, OPENSA_VALUE); 


e. EQLU OPENSK_ASSOCIAT) OR (.K EQLU OPENSK_IOSTAT)) 
'¢ 
! For the associated variable or IOSTAT we want the address of the value, not the 
; value itself. 


-KEYWD_ADR C(I = .1 + 1), OPENSA_VALUEJ : 
ELSE 


IF (.K GTR OPENSK_KEY_MAX) 

THEN 
BEGIN <a 
VAR_LENGTHS C.K] = 16; ! Signify word 
-KEYWD_ADR C(I = .1 + 1), OPENSA_VALUE) 


ELSE 
-(.KEYWD_ADR C(I = .1 + 1), OPENSA_VALUE])<0, 2BPVAL/2, 1> 


END; 
COPENSK_ARG_L_RJ : 


BBE EDDA AAD MDP AAA BP SII DB DO OP III III IE BE PEEP PLL EEE 
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bee 1e-8ep-19 4 99:33:72 FORRTL.SRCJFOROPEN.832; 1 oe (4) 
3 | Longword by-reference-next parameter slot contains adr. of value 
49 BEGIN 
498 . 
499 


IF _(.K EQLU OPENSK_UNIT) 
THEN 


'¢ 
! Remember the address and type of the variable which holds the UNIT 
in case we must compute the LUN value. 


PUPP 


IF (.UNIT_TYPE NEQ 0) 


V_ARG_KEY_ERR = 1 | 
LSE 
= BEGIN 
This is the first time through here. 


UNIT_TYPE = DSCSK_DTYPE_L: | 
UNIT ADDR = .KEYWH_ADR [.1 + 1, OPENSA_VALUE); 


— EQLU OPENSK_ASSOCIAT) OR (.K EQLU OPENSK_IOSTAT)) 
‘4 


' For the associated variable or IOSTAT we want the address of the variable, not 
its value. Also, we must mark that it occupies a longword. 


BEGIN 


090909 09 09 098 SII NSIS NINN NINO PA AOOOOAOAA OS 
MEW 0 OBNAOUE WN OO CONOUE Ww O0O~ 
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ah Ab Ab Ab Ab Ab Ab Ab Ab Ab db db db ab Ab Ab Ab Ab Ab ab Ab ah ab ab ah ah ah sb ab ab ah ah abe al 


86 

87 
4 if (.K EQLU OPENSK_ASSOCIAT) 

90 OPEN_ADR COPENSK_ASSOC_L] = 1 | 
91 ELSE 
3 OPEN_ADR COPENSK_IOSTAT_LJ = 1; | 
9% -KEYWD_ADR C(I = .1 + 1), OPENSA_VALUE]) | 
95 END 
38 ELSE 

98 IF (.K GTR OPENSK_KEY_MAX) 

99 THEN 
00 BEGIN Saige 

01 VAR_LENGTHS C.K] = 32; ! Signify longword 

O¢ haa C(l = .1 + 1), OPENSA_VALUE) ! Address for INQUIRE 

04 ELSE 

a6 .-KEYWD_ADR C(I = .1 + 1), OPENSA_VALUEJ 


END; 

es COPENSK_ARG_L_V, OPENSK_ARG_Z1] : 

; Longword by value or procedure adr. 

-KEYWD_ADR C(I = .1 + 1), OPENSG_VALUE]; 


BBB EB ELD IA DAD VD. ID DD DPD DD IAD I I OD II IIIT UIT 
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1-06 18-808- 1382 99:93:72 FORRTL. SRC IFOROPEN.B32 <1 ’ (4) 
: ¢ 14 4 

; 615 4 COPENSK_ARG_T_DS] : 

$ 4 o18 4 !+ 

; 5 617 4 ! Address of string descriptor. 

. ee 

; 28 Oe Y ? IF .K EQLU OPENSK_NAME OR .K EQLU OPENSK_DEFAULTF 

; 360 06 ¢ 4 -KEYWD_ADR C(1 = .1 + 1), OPENSG_VALUEJ 

; 561 Be 4 ELS 

3 o¢ 624 BEGIN 

; 3 89 5 

; 5646 6 § LOCAL 

3 203 ge i Vv; ! Returned value 

$ 369 0629 5 V = FORSSOPEN_KEYWD (.K, .KEYWD_ADR C.I + 1, OPENSG_VALUE)); 

; 568 0630 Seek @ 1g 

; 569 0631 

; 570 06 ¢ CASE .V FROM -1 TO O OF 

; 571 06 5 SET 

3 276 0634 5 

:- i 0635 5 {-1) : ! Invalid keyword for this type 

: 574 0636 6 BEGIN 

s tre 0637 6 V_ARG_KEY_ERR = 1; 
: 576 0638 6 0 

3 S77 0639 5 END; 

; 578 0640 5 

; Sry 0641 5 [0] : ' Keyword value error 

: 580 0642 6 BEGIN 
; #581 0645 6 V_KEY_VAL_ERR = 1; 
: 286 0644 6 0 

; 0645 5 END; 
; «584 0646 5 

> 585 0647 5 COUTRANGE) : ! Ok 

; 586 0648 5 V3 

; 587 0649 5 TES 

; 588 0650 5 

; 589 0651 4 END; 

: 590 0652 4 

: 591 06535 4 COPENSK_ARG_TZ_RJ : 

; rb 0654 4 !+ 

; 39 0655 4 ! Address of array of ASCIZ characters. . : 

; 594 0656 4 ! Next parameter slot contains address of first byte of string 

; eee set 4 4 ! If this is FILE or DEFAULTFILE, store Length and address of string in 

: 596 658 4 ! its respective descriptor. 

; 205 4 ? : Else SIGNAL_STOP FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN I/O SYSTEM") 

; 599 0661 4 

; 600 0666 5 IF (.K EQLU OPENSK_NAME) 

; 601 0665 4 THEN 

; 60 0664 5 BEGIN 

; 60 0665 

3; 604 O66 LOCAL 

3 oR: rots P; ! char. pointer to null char or 0 

: 607 669 ; NAM_DSC_ADR CDSCSA_POINTER] = .KEYWD_ADR C(I = .1 + 1), OPENSA VALUE); 

; 608 0670 P ="CHSFIND_CH (OPENSK_STR_MAX, .NAM_DSC_ADR COSCSA_POINTER), 0); 
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1 = .1 + .COONT; 

ADDR 
END; 

_ COPENSK_ARG_B_R) : 


' Byte variable oy reference 
FORSINQUIRE 


BEGIN 
IF (.K GTR OPENSK_KEY_MAX) 
THEN 


! Used only by 


PAA DAMMVI 


6 
6 
6 
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6 
6 
6 
6 
6 
6 
6 


23 


BEGIN 
VAR LENGTHS C.K) = 8; 


: ! Signify byte 
1+ 1), OPENSA°VALUED” 


14-Sep-1984 2:14 FORRTL.SRCJFOROPEN.B32; 1 (4) 
; 609 0671 NAM_DSC_ADR COSCSW_LENGTH] = (IF .P NEQ O THEN CHSDIFF (.P, «NAM_DSC_ADR COSCSA_POINTER] | 
; 610 676 ELSE OPENSK_STR_MAR); 
; ot) of? ghar DSC _ADR ! value of the CASE-expr is adr. of descr. 
3 gig 675 ELSE IF (.K EQLU OPENSK_DEFAULTF) 
; 6146 $76 4 THEN 
; 615 67 BEGIN 
; oi8 ore 
; 61 067 LOCAL 
; oi8 Bod P; ! char. pointer to null char or 0 
; 620 tt DEF _DSC_ADR CDSCSA_POINTER] = .KEYWD_ADR C(I = .1 + 1), OPENSA_VALUEJ; 
; 621 6 P= CWeF IND _5n (OPENSK_STR_MAX, .DEF-DSC_ADR CDSC$A POINTER], 0); 
3; 6 ¢ 0684 DEF_DSC_ADR’ COSC$W_LENGTH) = (fF -P REQ 0 THEN CHSDIFF (.P, -DEF_DSC_ADR CDSCSA_POINTER] | 
3 © 0685 ELSE OPENSK_STR_MAR); 
; 626 0686 .DEF_DSC_ADR ! value of the CASE-expr is adr. of descr. 
3; 625 0687 5 END 
: 626 0688 4 ELSE 
$ 6O¢7 0689 4 !+ ; 
; 628 0690 4 ! ASCIZ = not file name or default file name, just skip next 
: 629 0691 4 ! Longword and flag error 
; 6350 0692 4 !- 
; 631 0693 5 BEGIN 
$ O36 0694 5 Is .J ¢ 1s | 
> 63 0695 5 V_ARG_KEY_ERR = 1; en 
: 634 0696 5 6 ! value of the CASE-expr is 0 if error | 
3 639 0697 4 END; 
; 636 0698 4 
: 637 0699 4 COPENSK_ARG_INLNJ : 
: 638 0700 4 !+ ‘ 
3 639 0701 4 ! Sublist in-line with argument List 
; 640 0702 4 !- 
3; 641 703 5 BEGIN 
3; 642 0704 5 
; 663 0705 5§ LOCAL 
; 6644 0 5 ADDR 
> 645 5 COUNT; 
; 646 5 
3; 647 5 COUNT = .KEYWD_ADR C.1, OPENSW_INFO); 
; 648 5 ADDR = KEYWD_ADR C.1, OPENSB_KEY); 
; 649 5 
3 0 5 
3 1 4 
3 § & 
: 4 
3 4 4 
3 5 4 
3 6 4 
3 HM & 
3 9 : 
3 6 
3 5 
: 6 
3 6 
; 6 
; 6 
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mew 
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.KEYWD_ADR C(i 
END 


' 

! If KEY value is in range, store in cannonical array OPEN_ADR, 

' else set error sag and keep scanning to see if ERR= is present 
! so error handler will handle ereperss when prqnatee. 

! Note: I advanced correctly (by 1 or 2) depending on ARGTYPE 
even though KEY is not one of the defined ones. 


7 ELSE 
66? f « -KEYWD_ADR C(l = .I + 1), OPENSA_VALUE] 
66 7 END; 
670 7 
24 f im CINRANGE, OUTRANGE) : 
67 7 ! If KEY is out of range, set error flag (V_ARG_KEY_ERR) and 
ors f :_keep scanning to seen it ERR= is present of not. ~ 
676 7 BEGIN 
677 7 V_ARG_KEY_ERR = 1; 
678 7 0 !' Store 0 
679 7 END; 
80 7 TES 
684 7 
682 END; ! End of CASE on ARG_TYPE. 
7 
7 
7 
7 
7 
7 
7 
7 
7 


END; ! End of loop 
'¢ 
! Check for ny errors Sucing scan. 
If yes. SIGNAL_STOP FORS_INVARGFOR (48="INVALID ARGUMENT TO FORTRAN 1/0 SYSTEM’) 
IF .V_ARG_KEY_ERR THEN FORSSSIG_NO_LUB (FORSK_INVARGFOR, .OPEN_ADR COPENSK_UNITJ); 
IF .V_KEY_VAL_ERR THEN FORSSSIG_NO_LUB (FORSK_KEYVALERR, .OPEN_ADR COPENSK_UNIT]); 
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RETURN; ' Return from FORSSOPECLO_ARG routine 
END; ! End of FORSSOPECLO_ARG routine 


OFFC 00000 ENTRY FORSSOPECLO_ARG, Save R2,R3,R4,R5,R6,R7,R8,- 
SE 04 C2 0000 SUBL2 #4. SP 
58 10 AC D 0000 MOVL  KEY.MAX, R11 
50 58 02 78 00009 ASHL #2,7R11, RO 
50 04 C¢O 0000D ADDL2 #4. RO 
57 0c AC DO 00010 MOVL OPEN_ADR, R7 
50 00 6E 09 ¢ 0014 MOVCS #0, TSP): #0, RO, (R7) 
of 4 OOO1A CLRL = V_KEY_VAL_ERR 
C 0001C CLRO  —*UNIT_TYPE 
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IF ((.K LEQU .KEY_MAX) OR (.K EQLU OPENSK_IOSTAT)) THEN OPEN_ADR C.K] = .V ELSE V_ARG_KEY_ERR = 1; 


wn” 
o 


Be Se Oe Oe Se Be Be Be Se Se Se Se Se Se Se Se Se Ge FH Se Fe Ge Se SH Se Se Ge GHGs oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se se Se Se Se ae se ae 


yore Oi ieee ze V4.0-742 
FORRTL.SRCJFOROPEN.B32;1 


FORTRAN OPEN 


fonegren 


oo ~» 
soo o 
ww wT 
oo So 
Peta tea tea te tate te te te te tate *e te te Fea Fete te Fee Fe 48 #8 Fe 
o 
w - 
t+ 4 & 
So 

. ac o 
ca Oo 
aa . = seeeeen 
ac mw sees sseeees ° 
=x - + 5 FS PMHAMAHHAA 


4 
2$: 


wow <we Re 
eNO IIE 
SooCooooooo 
COooooeco 


TOwrwtu 
2QUMA0a0 


VK NOUOOOUNM 
WMitorvsode-vwy 


om aon MM WW ecw Tr ~Oe T- © SO 

Mo Oo -— NN NWN MMM Tr www ro Oo ~~ KhPO 

vruwu ww MH nM, wn mw val ame alee all ala!’ al 

oo oO foc Oo Oo OOO oOo ooo oo oO Oo OOO 
ad PRPS PSPS FSS SHS HSS HS TS FS SS HS SS PS SS FOSS FS SS SCS SS FS SEER HES 

te) 

[+ 4 » « 

a wu oa 

a a ” a a 

« c-¢ =x « << 

ws i _ uw i 

' t o 4 _ 

> we za > we 

w az w w az 

~ +> oad o x Fo 

ed y co 4 Ld 

w © ts « w © ts 

> : > dl oe | <= oO qo. .fe&e oer 

~—> ff name > ma > << 
. I ‘(i a2ar~ wu CO @B mt — a 4 N 
> aA (i> DReK- Ww wee i> oa- =— N 
o 2. We 2 ® . it cd Ww R 
A - Ze _ . = fF A oF NOAM BAF WwW += AA 


oul —j 
a 3. 106444 JogtIIIIOO 243 JCG848949 JInswgdgw 
Bro 3oOwr-O>0> >0 00 00wr>Ov >> Oow-Or>O>rcawe@a 
GOoeraetZ2Vwocootw wk vor Zoraczt Z2vwoco0ot3F 22a 
ODEO OYOHO- OFMEFLVCOVCOVOLO FOO OMDEOEZOYO—Ow 

oe ee - ohh eey et my 
F RAGA fea we o - Nm ~ 
mm TNO ~ @ o _ - - - 
TJTMNMMNMNNOOOOOORP-F-F-P-R. ODDDOOOOO Odataectacctcoo 


OOOO COCOCOCOSCOCCOSOOCOCOCOOCOOOOOOOOCOOOOSOOOOOOSOSoO 
COOOCCCOCCOCOOCOCOCSOSCOCOCSOSCSOOOOOOSOOSOOOOCOOOOOoOoOSoO 
CSoCCSCSOSCSSOSSOSOCOSCCOCSOSOSSSOSOOSOCOOOCOOOOOOOOOOoOO 
KOK NK KNMMOK- CORK MK Me NO CONV KEK KNUYMOn- OOF RK NOR 
MOK—MMO—O-— O— OBO K— OK Oe O- OOM Or Or Or OOOO Oe OO 
ee FS eI COW e— COR. CUM OM MIP OC ZL OUISIOR- M1 OWN - WODVOM FO 
ooo ay“ ihealiaeetatiens ‘hatin eetitainds * SNe NOSSO LOO 
~ ~~ 

Oo o 


< 
N w 
o 


59 
58 
5A 
11 
16 
1A 


20 BC43 


— 


31 


FOROPEN.B32 


ett Oh lee z V4.0=742 
FORRTL.SRC 


FORTRAN OPEN 


ae 


w oo o om 
oo Goo oO So an N me 
wm www ovo Oo wo Oo oo 
oo oOo OO So oo So oo 
Pe t®*e *ea *®ea te tate te te *® ete *e te Fe te te Fe Fe fe fe F . . 
Loe | 
4 a 
ws a] 
w > 
=x ws 
a Bt 4 
o a 
=z =z 
ws uw 
~ a & Oo a 
~ ‘ac cs 4 oe 
« « A tI 
~ ~~ =z . =) re rey & 
Aar~ oO > mm Lon: 4 — AA 
wnoerov7oes- _ vr Ow OO eo 
-—~- =— Ww uw eseroire NE & tour 
. 7 an 2 2 WwW mt 
A= FP OU NOAM NOM FH HA . AA 
ron Orr OM FM gam oO OoO~ ms 
- Se BM Me Bw NS YN OM MMT MRS SMe 


aiIiW +a 
So0nm ob JOO sos Joaititrtiiwtiwec 
wO>ea>BawrVe>Ov> >O00004%%310M9 
Z2uijIO@GOoOese sOZOaCZooctwtwrn{][azas 
MOOFTOLOLYVOLl FO—TFTEOYOYM0A0AVY wv 
oP APD od PA A es aA 
w wor co ao o - N 
- cm - - ™N oo ™N 


WD OwWOTh LV—K— HO V- O Ouwwssr- OvVwwvTMmOW 
BMMOMOLVCVVT ACCC COOWWWWWweuws.ueO 
ee ele ol elo) ol el al elelololololeleloleleoleolololo! aa 
ole lel ole lelolelolololoelelololelolelolololoelealololq) 
ee ee wee lel el el el elelalelelololeleleolelelsloleolo) 


NAO On-— K—NOVOO-—- COOK K—M—-MAODOu 
—WO- OMOn-FOOK- OOO Or Or OO OW 
BOK TK TM QONCONICUOMM DMMOCMMAINOe 
COMOOOCDMNOUMNTMUNT ONIN ON OTNOMNN 
oO w w w oOo 
o oO ~o Oo 


< 
w 
o 


wr KN « 


64 
20 BC43 
000000006 00 
8F 
0006 


O01 FFFFFFFF 


oman oO oOo N ~ w oo rue 

vwvyaro oO ~ ~~ [. @] oO ao oon 

ooono oO oOo oOo oO ~o ~o oo ooo 

oooco oOo o oo oO Oo o o ooo 

SSCS HS FSS SHS SHS FS HS FS HSS HSCS HS HS FSCS FS FRR FO FCO CR CR PR CR HR CR Pe Fe Ee He 
i* 4 « 
o: ~ ~ a 
tu oO Oo oO oO ive) 

' ec -~c& ec -~c« ft 
=) o~ o~ ~ 
of .'- aw '- aw (ve) 
> cz ~@e =< ~e + 

v a wv a ww t 
> <x . .¢ . - o 
w 4 oO ' So ern az 
Be 4 vw moO vw moO eo a4 

(ir 1D ee oOo 1 Se . « § 
> -—- Aa ws uN Oo Ws ~ ~~ > > 

xa tna Rs iA oOo oOo 
A wa Ss YW PAA Ou WY WF AZRAO +: ww . 
WM) oO Soro sew COO OwOeerOO -— 
MBM ate Sew BON MMOS RVC OANTMR EMR > 
a 
Nu @ 
ee HO 4IIIVOIII NBS WKH 
@O>r>OMawrver>s>vdg @Mawrvervuwe-omamar>rov rc 
fGocet20200wcet es 202002 44 Ww 2co0[ceaczo 
OFOLYOl—=FIMOCOL = IOY+ ODOT EZEEO—ZwX 
AA AF oA APD AA AP 8 
mT ww oO ™oo aod wre 
NN NG N om ae meee 


HSAOWOMNE OOr-O OwosO Ow Ts OO wor Lowe 
BOO INICIO ST SF SF TT TAO 
POP CCS SCSHE SCC CCC CC COC OCC CO OO OOO 
SOOooooooooooooooooooooooooooocoo 
OOoCCCCOOCOCOCOCOCOCOCOCOCCOSCOOOOOOOOoOoOoO 


—O-—-VNOOO IM - WOOO LUTNMNe £OOC- OO 
—-O— O- OOOMe—— O-— AA OM— OOK VK ODO O00 


FH HMO VOW DOM VAUNONW — OOS ua OO ST 
woounme o“<o- mm ne eS ee ee 
Oo o 


w Le) 
- - 


wr w 
o oO 


6E 
OE 
56 
A6 


B6 


04 


| of 
wom OOO HS HS OS Oe Oe Oe Oe Fe TE HS HS HS FS He OE He FS ES FES FS FS ES ES FSS FE FEES FETS HS FSS FS SESS SSE *S*S FSS HS “SHS FS SS *S FS *S FSFE HSS HESS 


N o nm ~m N wT co 
—sr oOoOe— Ww CUT N wn ne so o ~o 
~ Oorerere ~~ RR ~ ~ wT ~ ~ ~ 
® oooo Oo OO o o oO o o Oo 
ao Pe *e te *e Fea *e Fate tea Fe Fa Fe Fe *e tea Fe *e te ee tate He Fata tate tate tata tea tate 
«© 
a 
= 
Nice 
wm 
Le al 
‘@ 
oO - 
"Zz 
ww 
>a. 
oO 
Na 
MO A ad 
tu tn] mm @ @ 
we b 4 ~w Aad ae pm | 
avo w a w oo -) 
— x ” aes ~~ w a } 
_—W =x we Oo Oo j 
@m- hee 1 ba ae z } 
|) oo ~ s ce = t 
= — z we « oa o | 
—-e 2 w Oo ~z ws “uw — j 
‘a > ee a an] oO 4 ” 1 ” } 
xo oO a “x oO > Au a } 
qu ue a © . uw aww w A oy | 
aw > =z<=na > ~ << t ~~ ce> « 
es oOo >lc — —- WN Be w t oO t oO ' 
ae = NM Be Uw weer Ww & Ot On &wrnr w | 
o2za ® ~ a-=c& = ~ — cr wn 
PZDdAeH #s NA NO FH FH A AH IOeO swan »s | 
Or AwOQO WO GO GO OO ee NR OTR TN ea 
| M— MVC EMM Bee Mew wy MT MT oT Be OT RB BOT Re i 
7 
} we 
me te) | 
| oo Im = | ” ee ee i 
om Bo ss MY ISG ay Si VITsverrn4 | 
Oo-—- WM O>OOwrerOv > ra wtw>O>OO30MK JOH )H) UF | 
@roocse sOoOZocZoo0€E sw 2ZOCOOCa jD Dat DTD eas 
TF Ovi TOO -2FO—-FFCOVCOLT@OSTaAOOMMAAc MA0avce 
on 
So sel 
‘es 
aa - - - - - 
oeaa rt OA oA ef A Fr FA RHA Pe we 
mn rw oO ~ co o o Nu Mw w oO 
Ri om OM ~m al val Trwsr wes 2 w 


eK PWN VE RK TODO RK MMO Vue TOKE TOC VE - DOwWOr 
WOOOOP-P-P-P-F- DODDDDDOSCSSOSOSO aes eOOODOvw 


| 
| 
| 
| 
DOOD WOOOOOCOOCOOVOOOOOOCOCOOCOOOCOCOCOOCOCOCOO «+ 
OOoCCCOOOCOCOCOCOCOCOCOCOCCOCOOCOOOOOCOOOOOOO s 
} —-NOOnK—K- MOOO- COOK Oe NOK ON - CoOaomMeCacomsTr oO 
i HMVO— O- OOO OOOO OF Or Oe KH MWOOuUWOOBuKO 
+ 
FO OC DM ODUUONCNOPMINM OTM OM OF OWE OCU w 
o Oo mu oe 
ss 
| N co w w a 
| oO o o o ro) 
| om 
| ‘ 
| 
| 
| S 
—wr <M =~ OvO@ OM OW GG Ow oo ° 
mWnAWwN — ~ wn MAW — ww mw Oo oo o @ 
@ o o 
o o c 
| oO o =] - 
~N o oO ~ 
oO o = | 
oO o °o 
o o < 
oO oO 
Ss Ss 
z 
ive) N s 
a oOo 4) 
Oo a 
7 
2 ~ - 
i Ss 3 
i a 
| § ss 
oO w ~ 
Oo 
a 
N 
- 
” 
2 Fa 
w - 
a i ~ 
Ss pS oO 
P4 o ~~ 
oF = 
_—e ** ee 


— 


dD 8 
FORSOPEN FORTRAN OPEN 16-Sep-1984 00:35:36 AX=11 Bliss-32 V4.0-742 Page 19 if 
bes 12786071382 99:33:78 FORRTL.SRC IF OROPEN.B32¢1 . (5) 1- 
; 709 770 1 ROUTINE OPEN_ON_CONNECTED ( ! Open on a connected unit ‘ 
; 710 771~«1 = ' Keyword vector . 
; 711 ue 1 L_UNWIND_ACTION ! Unwind action ‘ 
: ay 773 (1 ) : CALL CCB™= ‘ 
; ri 0774 1 : 
: 7146 0775 1 !44 ‘ 
3 ay 8776 : FUNCTIONAL DESCRIPTION: : 
3 a9 0778 1! This routine implements the FORTRAN-77 concept of open on ‘ 
; 73 0779 1! a connected unit. ° 
; 719 0780 1! ‘ 
3 £30 thy ,} If an OPEN is done for a unit which is already open, one of two . 
: 721 07 ¢ 1! things happen: ‘ 
3 Use 0785 1! - If the filename specification in the OPEN is the same as ‘ 
s Te 0784 1! the same as the file currently open, or if the filename ‘ 
s 26 0785 1! is omitted but the unit is already open, then the value ° 
s 72 0786 1! of BLANK= is set according to the keyword List. . 
3 rs6 0787 1! 2. If the filename specification in the OPEN is not the same ‘ 
3 fer 0788 1! as the file currently open, the old file is closed and . 
; 728 0789 1! the new one is opened. ° 
3 Te 0790 1! ‘ 
; 730 0791 1 ! FORMAL PARAMETERS: ° 
3; ro) fad 1! ‘ 
: 732 0793 1! PEN.rl.ra Sorted keyword List from OPEN ; 
5 A} fae : L_UNWIND_ACTION.ml.r Unwind action in case of an error ; 
3 95 0796 1 ! IMPLICIT INPUTS: 
: 736 0797 1! 
s for 0798 1! ccB Global I/0 database register 
: 738 0799 1! 
; 59 0800 1 ! IMPLICIT OUTPUTS: 
3; 740 0801 1! 
3 «741 0802 1! LUBS$V_NULLBLNK 
3 76 0803 1! 
3 (74 0804 1 ! ROUTINE VALUE: 
3: 744 0805 1! . 
; 745 0806 1! True (1) if no further OPEN processing is needed (case 1) 
3; 746 0807 1! False (0) otherwise (case 2) 
: 767 0808 1! 
: 748 0809 1 ! SIDE EFFECTS: 
3; 749 0810 1! ; : 
: 750 0811 1! Possibly closes the currently open file 
; 751 Bais 1 !-- 
3 P3¢ 0813 1 
: 0814 BEGIN 
3; 754 0815 
: 755 0816 EXTERNAL REGISTER 
3; 756 0817 CCB : REF SFORSCCB_DECL; 
: 757 0818 
; 758 0819 P 
3; 759 0820 OPEN : REF VECTOR COPENSK_KEY_MAX + 1); 
: 760 B85; 
: 761 08 ¢ LOCAL 
; roe 08 FAB : BLOCK MetsE ep pyted. ' FAB block 
s £6 3 4 NAM : BLOCK CNAMSC_BLN, BYTE ' NAM block : 
> 764 0825 RES_NAME : VECTOR CNAMSC_MAXRSS, BYTE], | Resultant name string 
: 765 0826 2 RES_LEN, ! Resultant string length 


—————___--- ——-. -—- — + -- > ne 


; 0 
-Sep- 235: AX-11 Bliss-32 V4.0-742 Page 
| FORSOPEN apenas fe 16-Sep-1984 90:33:78 FORRTL.SRCJFOROPEN.B32;1 (83 
! Default name string 

2 7 DEF_NAME : VECTOR (10, BYTE], iy A yp 

: 76 oS § NAN"DSC : REF DSCSDESCRIPTOR, Logica anit nunber 

769 o8 , RMS_STATUS; ! RMS condition status 

‘ ' 

eee 3s © 5 I set up FAB ond WAN blocks 

: 77 0834 ie : 

: : (0, FABSC_BLN, FAB); 

: ae 88 3 etn (0, NAMSC"BLN : 

: 776 08 $ FAB C[FABSB.B1D) ="FABS$C_BID: 

: 777 8 FAB [FABSB_BLN) = FABSC“BLN; 

: 778 OB36 NAM CNAMSB-BIDJ = NAMSC“BID; 

: 779 0840 NAM CNAM$B_BLN] = NAMSC_BLN; 

; 780 0841 2 FAB CFABSL_NAM] = NAM; 

: re gees i Set up common default value for FILE and DEFAULTFILE if needed 

: 78 0844 ie mt 

; 784 0845 UNIT = .OPEN COPENSK UNIT; 

: ; PENSK_NAME] EQLA 0 OR 

: ree Pkg 2 <i OPEN OPENSK-DEFAULTF EQLA 0 

: $Bc9 TO gin 

; ? a . 

: F_NAME CO) = XCF; 

: 18 SBSt OEE NAME iF = %C'O': 

; 791 085 DEFINAME [2] = EC'R': ma 

a: 085s 3 DEF-NAME (3 = ((.UNIT/100) MOD 10) + £C'0'; 

: 738 0854 DEF-NAME (4 = ((-UNIT/10) MOD 10) + 2C'0"; 

: 83 0855 i DEF “NAME 3] = (UNIT) MOD 10) + %C'O'; | 
: F “NAME = £C','; 

: 138 bBSo ; OEE NANE 7) = £C'D': 

: 797 0858 DEF-NAME [8] = XC'A': 

: EF“NAME (9) = X%C'T’: 

: 798 0859 . 

: 799 0860 ND; | 
> 800 0861 * 

: B02 O86 i Set up DEFAULTFILE name 

> 80 0864 2 i- 

; 50S D866 NAM_DSC = .OPEN COPENSK_DEFAULTFI; 

; B09 bBe8 IF (.NAM_DSC NEQ 0) 

: O08 0890 BEGIN 

; Hf a871 i Default file name was specified. Check for proper length then 

: 81 087 i use it. 

; “a QL 0)) 
: Bi$ ie: 4 LF (CNAM_DSC CDSC$W_LENGTH] GTRU 255) OR (.NAM_DSC CDSC$W_LENGTH) EQL 

; Bi bays FORSSSIG_NO_LUB (FORSK_FILNAMSPE, UNIT); 

: 8! th = .NAM_DSC CDSC$W_LENGTH); 

ett a879 FAB EFABSEDNA = {NAMDSC EDSCSATPOLNTER: 

BoB 8 

i BS) 58S BEGIN 


FORSOPEN 
1 obe5 
Eo @ 
> 825 
i 886 aM 
; 828 o8 9 
: 829 890 
3 4 O88 
; § £38 
s 85 0894 
3; 8 +44 
>; 835 38 
; 8 89 
; 837 0898 
: 838 0899 
; 839 0900 
: 840 0901 
> «6841 090 
; 84 090 
: 84 090 
; 844 0905 
; 6845 0906 
; 846 0907 
3; 847 0908 
; 848 0909 
; 4849 0910 
; 850 0911 
; 851 pals 
he S26 091 
s 83 0914 
; 854 0915 
; 855 0916 
; 856 0917 
; 857 0918 
; 858 0919 
; 859 0920 
; 860 0921 
; 861 092 
; o6¢ 092 
; 86 0924 
3 0925 
3; 865 0926 
3 66 927 
: 7 928 
; 868 0929 
3 9 0930 
a Be 
; 87 $338 
s 67 0934 
3; 874 0935 
: 75 9 § 
3 76 9 
: 77 938 
3 78 939 
; 879 0940 


FORTRAN OPEN 


RI LAPPNINIPIAPINININIMININININININININ WWW WII WWI & 


F 8 
16-Sep-1984 5:36 
127388-1982 99:33:78 
14 
DEFAULTFILE not specified, use name of FORnnn.DAT 


FAB [FABSB_DNS] = XCHARCOUNT (*FORnnn.DAT'); 
FAB FABSL-DNA] = DEF_NAME; 


14 
: Set up file name 


NAM_DSC = .OPEN COPENSK_NAME); 
IF (.NAM_DSC NEQ 0) 
BEGIN 
14 


i File name was specified. Check for proper length then 
1 use it. 


FORSS$SIG_NO_LUB (FORSK_FILNAMSPE, .UNIT); 


FAB CFABSB_FNS] = .NAM_DSC titre LENGTH]; 
FAB FABSL_FNA) = .NAM-DSC CDSCSA~POINTERI; 


N 
ELSE 
BEGIN 
14 


i File name not specified, use name of FORnnn which may be 
a logical name. 


FAB CFABSB_FNS] 
.S CFABSL_FNA} 


ZCHARCOUNT (‘FORnnn'); 
EF _NAME; 


'¢ 
: Set up resultant name string 


NAM CNAM$B_ESS] = NAM CNAMSB_RSS] = NAMSC_MAXRSS; 
A NAM CNAMSL_ESA] = NAM CNAMSL_RSA] = RES_NAME; 


Parse and search for the file to get the resultant name 
RMS_STATUS = SPARSE (FAB = FAB); 


'¢ 

Specifically forbid wildcards in file name. 
IF (.NAM CNAMSV_WILDCARDJ) 

THEN 


oe 
NAM CNAMSL ~ESAJ = 0; 


! Invalidate result string 


‘- 


32 V4.0-742 
FOROPEN.B32;1 


IF ((.NAM_DSC COSC$W_LENGTH] GTRU 255) OR (.NAM_DSC CDSC$W_LENGTH] EQL 0)) 


IF (.RMS_STATUS) THEN S$SEARCH (FAB = FAB) ELSE FORSSSIG_NO_LUB (FORSK_FILNAMSPE, .UNIT, 


Page (& 


) 


1. 


————— 


8 
FORSOPE FORTRAN OPEN 1h-5ep-1984 00:35:36 VAK=11 BLiss-32 v6.0-762 ° 
bee akties VAR ey a eh hd pr ee oor of 


097 COUTRANGE] : 
0974 FORSSSIG_NO_LUB (FORSK_INVARGFOR, .UNIT, FAB); 
0975 TES; 


0977 '¢ 
0978 BLANK= set, now pop the LUB/RAB/ISB and return to FORSOPEN 


0980 3 FORSSCB_POP (); 
0981 -L_UNWIAD_ACTION = FORSK_UNWINDNOP; 
098 TURN 1; ! No more OPEN processing needed 


0 941 NAM C(NAMSL_RSA]) = 0; : 

1 94 FAB LFABSL_STS) = 0; ! Invalidate statuses ; 

8 94 FAB LFABSL_STVJ = 0; : 
88 944 FORSSSIG_NO_LUB (FORSK_FILNAMSPE, .UNIT, FAB); ; 
884 945 END; : 
885 94 ; 
4] 94 + ; 
8 94 ' See if the resultant name matches that stored in the LUB ; 
eae ba } or if the name was not given and the unit is open. : 
= | Ps 

Soy 949! RES_LEN = MAX (.NAM CNAMSB_RSL], .NAM CNAMSB_ESL]); ; 
89 $388 IF ((CHSEQL af: LEN, RES NAME, .CCB CLUBSB_RSLJ, .CCB CLUBSA_RSNJ, %C° ')) } ; 
893 0994 OR ((.OPEN COPENSK_NAME] EQL 0) AND .CCB~CLUB$V_OPENED))) : 
895 8928 BEGIN : 
896 095 : : 
897 0958 ! Names match, change BLANK= value only. ‘ 
898 0959 te ; 
899 0960 : 
900 0961 CASE .OPEN COPENSK_BLANK] FROM 0 TO OPENSK_BLK_NUL OF « 
901 40 SET ; 
it 096 : 
Si BSEs fe or race {I 
3 ! Make no changes : 

905 0966 ¥ ‘ 
906 0967 COPENSK_BLK_ZER] : ' BLANK="ZERO' . 
907 0968 CCB- CLUBS$V_NULLBLNK) = 0; ; 
909 0970 COPENSK_BLK_NUL) : ' BLANK="NULL‘ . 
0971 CCB-CLUBSV_NULLBLNK) = 1; : 


File names do not match; close current file, open new one. 


IF NOT FORSSCLOSE_FILE () THEN FORSSSIG_NO_LUB (FORSK_CLOERR, .UNIT, FAB); 


FORSSCB_POP (); 
ii .L_UNWIRD_ACTION = FORSK_UNWINDNOP; 


Now, try to initiate re-opening of this unit 


WFwn— 
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FORTRAN OPEN 16-Sep-1984 35:36 AX-11 Blis 0-742 Page 23 
1e-8ep-19 4 99:33:76 PAARL SRE TFOROSEN. B32;1 ° (83 
99 FORSSCB_PUSH (.UNIT, LUBSK_LUN MIN); 
0399 ; -L_UNWIRD ACTION = foRsk _URWINGPOP; 
1991 4 IF ((.CCB CLUBSV_OPENEDJ) OR (.CCB CLUBSV_DEALLOC))) 
1998 FORSSSIGNAL_STO (FORSK_RECIO_OPE); 
1005 END; 
1006 
100 RETURN 0; ' Continue OPEN processin 
1008 END; ! of routine OPEN_ON_CONNECTED 
.EXTRN SYSSPARSE, SYSS$SEARCH 
01FC 00000 OPEN_ON_CONNECTED: 
.WORD Save R2.R3. R4, Rd R6,R7,RB : 0770. 
58 000000006 00 9€ 00002 MOVAB FORS$$CB. POP : 
57 00000000G 00 9€ 00009 MOVAB FORSSS1G_ NO_ Lis. R7 ; 
5E FE44 §6CE. OSE 90010 MOV 444(SP)> : | 
00 6E 00 2C€ 0001 MOVCS #0, (SP). #0, #80, FAB > 0835) 
BO AD 0001¢ ; | 
00 6E 00 2¢ OO0iE MOVCS #0, (SP), #0, #96, NAM + 0836 | 
FF5O CD 0002 ; 
AD 5003 8F BO 00028 MOVW #20483, FAB : 0837) 
FFSO 6 CD 6002 8F B80 000¢E MOVW #24578, NAM : 0839, 
AD FF50 CD 9E 000 MOVAB NAM. Toy: ; 0841 | 
54 04 AC DO 00038 MOVL OPEN, R4 + 0845 | 
55 04 A& DO 0003F MOVE = &(RaS, UNIT : | 
56 D4 00043 CLRL oR > 0846 | 
38 «=AG D5 00045 TSTL  56(R4) : 
04 12 00048 BNEQ 1$ : | 
56 D6 0004A INCL 6 ; | 
05 11 0004c¢ BRB 2$ : | 
68 Ae DS OO04E 18 TSTL — 104(R4) : 0847 | 
4B 12 90091 BNEQ F 
6E 4F46 «= 8F_ = BO 00053 2s MOVW #30294 DEF NAME + 0850 | 
02 AE 52 BF 90 00058 MOVB #82, D > 0852 | 
52 55 00000064 &F C7 0005 DIVL3 6 er NAR 3° > 085 
0 52 01 7A 00065 EMUL 4 R2, #0, -(SP) ; 
2 BE OA 7B 9006A EDIV. #10, (§P)+; R2, R2 : 
03 AE 52 30 81 O006F ADDBS #48. R2, DEF_NAME+3 ; 
52 55 A C7 0 or DIVL 10, nit R2 > 0854 
00 52 1 7A 00078 EMUL 1, R2, #6, -(SP) : 
52 8 A 7B 6 07D Eolv. #6, (SP) R2, R2 : 
04 AE 5 0 gi 0082 ADDB3 #48, R2, DEF_NAME+4 : 
00 5 01 7a 000 EMUL #1, UNIT, #07 =(SP) : 0855 
50 BE A 7B 0008C EDIV #9, <s (SP5+ Ro RO : 
0S AE 50 0 81 00091 ADDB3 #4 es.88' ber E+5 : 
06 AE 54414426 F DO 9096 MOVL reise “DEF E NAME +6 : 0856 
5 68 AG 09 0 H 3$ MOVL aio! 3968 _DSC™ : 0866 
10 13 OOOA BEQL «68 : 0868 
OOFF BF Bi 000A4 CMPW = (NAM_DSC), 0255 > 0875 
4 1A 000A9 BGTRU 4$ ; 
6 83 OOAB TSTw = (NAM_DSC) ; 
0 OOAD BNEQ 5$ ; 


oo Te 
' 


~— 


8 
_ FORSOPEN FORTRAN OPEN 1b-se -1984 00:35:36 AX-11 Bliss-32 V4.0-742 Page 24 
1-06 1 =3007} 382 99:33:78 FORRTL.SRCJFOROPEN.B32;1 . (83 
5 DD OOOAF 4$: PUSHL UNIT : 0877 
DD 00081 PUSHL #4 : 
67 FB B3 CALLS #2, FORS$SIG_NO ve : 
ES AD 62 90 00086 5S: MOVE (NAM_DSC), FABSS + 0879 
EO AD 04 Ad DO OO0BA MOVL 4 (NAR_DSCS, FAB+48 : 0880 
0 11 000BF BRB 7$ + 0868 
ES AD A 90 000C1 6$: MOVB #10, FAB+S3 : 0887 
£0 AD 6— 9€ 0005 MOVAB DEF NAME, FAB+48 + 0888 
52 38 =A DO 000C9 7s: MOVL 6(R4), NAM_DSC > 0894 
1D 13 000CD BEQL 10$ + 0896 
OOFF  8F 62 81 OOOCF CMPW  (NAM_DSC), #255 > 0904 
04 1A 9004 BGTRU : 
62 B5 O06 TSTW (NAM_DSC) : 
Q 12 0000 BNEQ 9S : 
5 DD OOODA 8$: PUSHL UNIT + 0906 
2B DD 0000C PUSHL #4 : 
67 0 FB O00DE CALLS #2, FOR$$SIG_NO Lue : 
E46 AD 62 90 OO0E1 9S: MOVE - (NAM_DSC), FAB+S : 0908 
DC AD 04 A2 00 O00ES MOVL 4 (NAR_DSCS, FAB+44 : 0909 | 
08 11 OOOEA BRB 11$ > 0896 
E46 AD 06 90 OOOEC 10$:  MOVB #6, FAB : 0917 
DC AD 6E 9E OO0FO MOVAB DEF_NAME, FAB+44 : 0918 
FF5S2 CD 01 BE OOOF4 11$:  MNEGB #1, ~NAM+2 + 0924 
FF5A CD 01 BE 000F9 MNEGB #1. NAM+10 : 
50 0c AE 9E OO0rE MOVAB RES_NAME, RO + 0925 
FFS4 = CD 50 00 010¢ MOVL RO, é ; 
FF5C CD 50 DO 0010 MOVL RO, NAM+12 : 
BO AD 9F 0010C PUSHAB FAB + 0929 
000000006 00 01 FB OO10F CALLS #1, SYSSPARSE F 
0c 50 €9 00116 BLBC  ——- RMS_STATUS, 12$ + 0931 
BO AD 9F 00119 PUSHAB ; 
000000006 00 01 FB Oo11¢ CALLS #1, SYS$SEARCH ; 
OA 11 0012 BRB 13§ : 
BO AD 9F 00125 12$:  PUSHAB FAB : 
55 DD 00128 PUSHL UNIT : 
2B DD O0012A PUSHL #4 : 
67 03 FB 0012C CALLS #3, FORS$$SIG_NO_LUB : | 
15 85 AD €9 OO12F 13$:  BLBC NAM+53, 14$ : 0937. 
FFSC CD D4 00133 CLRL = NAM#+12 + 0940 
FF54 CD D4 00137 CLRL 3s NAM#4 > 0941 
B8 AD 7C 00138 CLRO = FAB+8 : 0942 | 
BO AD 9F 01 E PUSHAB FAB > 0944 
55 DD 00141 PUSHL UNIT : 
38 DD 143 PUSHL #4 : 
67 FB 0014 CALLS #3, FOR$$SIG_NO_LUB : 
50 FF53 CD 9A 00148 14%: | MOVZBL NAM+3. RO : 0951 
50 FF5B  «6CD «O91 00140 CMPB Ss NAM+11, RO ; 
05 18 00152 EQU 15S ; 
50 FFSB cp 9A 00154 MOVZBL NAM+11, RO ; 
51 0 DO 0139 15$:  MOVL RO, RES_LEN : 
50 F7 AB 9A 0015¢ MOVZBL -9(CCB); > 0953 
50 20 OC AE i 31 20 0160 CMPCS RES_LEN, RES_NAME, #32, RO, a-8(CCB) : | 
9 13 $188 BEQL 16$ : 
31 6 £9 0016A BLBC RE, 218 > 0954. 
20 fC AB £9 160 BLBC §=—_ 4 (CCB), 318 ; | 
02 0 60 AG CF 00171 16%: CASEL 96(R4), #0, #2 > 0961 


on 


FORSOPEN FORTRAN OPEN 13-3¢ 5ep-1984 AX-11 Bliss-32 V4.0-742 Page 25| 
oR eeP 300-1984 90: 33: i? FORRTL. Bt RCIFOROPEN.B32¢1 ° (83 
0019 0012 OO1E 00176 178: . WORD ER - : 
$-17$ : 
B0 ap OF ize PUSHAB 3 0976 | 
DD 0017F PUSHL NL T : 
9 DD 00181 PUSHL ; 
67 : FB 3 CALLS a FORS$S1G_NO_LUB F 
FF AB 40 =F BA 188 18%:  BICB2 #64, -1(CCB) + 0968 
5 11 00180 BRB 20$ : 
FF AB 40 = BF te O18F 19$:  BISB2 #64 ct (cce) + 0971 
z 6 91 4 20$: JSB FORSSCB + 0980 
08 BC 1 D 196 MOVL aL BONWIND ACTION ; 0981 
50 1 v0 019A OVE Ag RO™ + 0982 
000000006 00 00 Fe O019¢ 21$: CALLS #0, FORSSCLOSE_FILE + 0990 
OA 50 E OO1A BLBS RO, 22$ ; 
BO AD 9F GO1AB PUSHAB ; 
55 DD 001AB PUSHL UNIT § 
fs DD 001AD PUSHL 26 : 
67 0 FB OO1AF CALLS & Hote Th _NO_LUB é 
68 16 001B2 228: JSB FORSSCB + 0992 
08 BC 3 DO 00184 MOVL , a on ACTION 3: 0993 
0 D4 00188 CLRL fo" : 0998 
52 55 00 001BA MOVL ; 
000009006 00 16 001BD JSB UOaséce : 
08 BC 04 001C3 CLRL ss @L $56 pu ACTION > 0999 
05 FC AB €E8 001C6 BLBS sa tccB) 23$ : 1001 
09 FF OA 04 £1 OO1CA BBC -1(€CB), 24$ ; 
28 DD OO1CF 23%:  PUSHL + 1003 
000000006 00 1 FB 00101 CALLS #1, FORSSSIGNAL_STO : 
50 04 001D8 24%:  CLRL RO : 1007 
04 001DA RET + 1008 


; Routine Size: 475 bytes, Routine Base: _FORSCODE + 029C 


: 948 1009 1 END ! End of FORSOPEN module 

3; 949 1010 

; 950 1011 O ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes | 
: _F ORSCODE 1143 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


3 Used: 233 ages 
3 ; Remory Used: "is oa 


FORSOPEN FORTRAN OPEN $ep-1984 00:35:36 AX-11 Bliss-32 V4.0-742 Page 6 
1-06 190-1984 99:33:78 FORRTL.SRCJFOROPEN.B32; 1 By | 
PT Pe ee ed ee Symbols -<--<-<--- Pages Processing | 
3 File Total Loaded Percent Mapped Time 
:  _$255$DUA2B:[SYSLIBISTARLET.L32;1 9775 32 0 581 00:01.1 | 
3 ~$255$DUA28: CFORRTL.OBJ JFORLIB.L32;1 711 223 31 52 00:00.5 
> $255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 | 

| 

| 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:FOROPEN/OBJ=OBJ$:FOROPEN MSRC$:F OROPEN/UPDATE=(ENH$: Ff OROPEN) | 
: Size: 1143 coge + 0 data bytes 
; Run Time: 725.4 | 
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